0 CLEAR900:DIMP$,CC,C3,C2,T,M$,MC,C5,C6,P$,J:MC=16384:CC=RND(-(PEEK(9)*256+PEEK(10))):GOTO2140
1 C3=1:CC=32
2 IFMID$(M$,CC,1)<>""ANDMID$(M$,CC,1)<>" "THENCC=CC-1:GOTO2
3 PRINTMID$(M$,C3,CC-C3):C3=CC+1:CC=C3+31:GOSUB11:IFC3<=LEN(M$)THEN2
4 RETURN
5 M$="":ON1-(P$<>"")GOTO4:FORP=1TOLEN(P$):II=ASC(MID$(P$,P,N1)):M$=M$+CHR$(ABS((C155*(II>C64))-II)):NEXT:GOSUB1:RETURN
6 V$="":IFV0$=""THENRETURN
7 FORJ=1TOLEN(V0$):II=ASC(MID$(V0$,J,N1)):V$=V$+CHR$(ABS((C155*(II>C64))-II)):NEXT:RETURN
10 A$="GSV DVHG VMW LU Z KIRHLM XVOO.  Z WLLI OVZWH MLIGS":B$="GSV WLLI RH OLXPVW":E=2:GOTO410:E=2:GOTO410
11 C2=(PEEK(17024)AND1)*256+PEEK(17025)
12 IFC2<=448THENRETURN
13 PRINTTAB(3)"PRESS ANY KEY TO CONTINUE";
14 I$=INKEY$:IFI$=""THEN14
15 CLS:RETURN
20 A$="GSV VZHG VMW LU Z KIRHLM XVOO.  Z NVGZO YLC ORVH LM GSV TILFMW":B$="GSV YLC RH OLXPVW":W=1:GOTO410
30 A$="Z GRMB KZHHZTV":N=11:S=4:GOTO410
40 A$="Z GIRZMTFOZI ILLN":N=3:GOTO410
50 A$="Z HGLIZTV ILLN":N=8:W=6:GOTO410
60 A$="GSV DVZKLM ILLN":E=5:GOTO410
70 A$="GSV GIVZHFIV EZFOG":N=12:GOTO410
80 A$="Z HNZOO ILLN":S=5:E=9:GOTO410
90 A$="Z ILLN DRGS Z HGVVO WLLI LM GSV UOLLI":W=8:E=10:N=13:S=1:GOTO410
100 A$="GSV NFHRX SZOO":E=11:W=9:GOTO410
110 A$="Z ILLN DRGS Z OZITV YIZHH GZYOV":N=14:S=3:W=10:GOTO410
120 A$="GSV GSILMV ILLN DRGS Z HGZGFV LM GSV HLFGS DZOO":N=16:E=13:GOTO410
130 A$="Z ILLN DRGS Z HNZOO RELIB GZYOV":S=9:W=12:N=17:E=14:GOTO410
140 A$="GSV DRAZIW'H DLIPHSLK":S=11:W=13:GOTO410
150 A$="Z ILLN DRGS HGZRIH TLRMT FK":E=16:U=36:GOTO410
160 A$="Z OZITV SZOO":S=12:W=15:E=17:GOTO410
170 A$="Z OZITV HGLIZTV ILLN":S=13:W=16:N=21:E=18:GOTO410
180 A$="Z HNZOO ILLN DRGS HGZRIH TLRMT FK":W=17:N=22:U=39:GOTO410
190 A$="GSV WIZTLM ILLN":E=20:GOTO410
200 A$="Z XLNKOVGVOB WZIP SZOO":W=19:E=21:GOTO410
210 A$="Z DLIPHSLK DRGS Z DLLWVM GZYOV":W=20:E=22:S=17:GOTO410
220 A$="Z GRMB HJFZIV ILLN":N=25:S=18:W=21:GOTO410
230 A$="Z IVXGZMTFOZI ILLN":E=24:N=26:GOTO410
240 A$="GSV PRGXSVM":W=23:E=25:GOTO410
250 A$="GSV WFMTVLM XZHRML DRGS Z OZITV HOLG NZXSRMV":N=28:W=24:S=22:GOTO410
260 A$="GSV ORYIZIB":S=23:GOTO410
270 A$="Z WZIP ILLN":E=28:GOTO410
280 A$="GSV OZYLIZGLIB DRGS Z NVGZO GZYOV":S=25:W=27:GOTO410
290 A$="Z EVIB WRIGB ZMW WFHGB ILLN":S=30:GOTO410
300 A$="Z EVIB OLMT XLIIRWLI":N=29:W=31:S=34:GOTO410
310 A$="Z YIRTSG XSZNYVI":E=30:W=32:GOTO410
320 A$="GSV XSZNYVI LU WVZGS":W=33:E=31:GOTO410
330 A$="GSV XSZNYVI LU GSV TLWH":E=32:GOTO410
340 A$="Z WZIP XLIIRWLI":N=30:W=35:GOTO410
350 A$="Z HNZOO XSZNYVI DRGS Z HGVVO WLLI ZYLEV BLF":E=34:GOTO410
360 A$="Z GRMB SZOO DRGS HGZRIH TLRMT WLDM":D=15:E=37:GOTO410
370 A$="Z OLMT, WZIP XLIIRWLI":S=38:N=40:W=36:E=39:GOTO410
380 A$="Z HGIZMTV, IVW ILLN. GSVIV RH Z YFGGLM LM GSV MLIGS DZOO":N=37:GOTO410
390 A$="Z HNZOO ILLN DRGS HGZRIH TLRMT WLDM":D=18:W=37:GOTO410
400 A$="Z SFTV VMGIZMXV SZOO":S=37
410 IFA=1ANDS0=1THENB$="GSV WLLI RH LKVM":N=9
420 IFA=2ANDS1=1THENB$="GSV YLC RH LKVM"
430 IFA=35ANDS2=1THENB$="Z HGZRIXZHV OVZWH FK GSILFTS GSV HGVVO WLLI":U=9
440 IFA=9ANDS2=1THENB$="GSVIV RH Z HGZRIDZB OVZWRMT WLDM":D=35
450 IFA=25ANDS6=1THENB$="GSVIV RH Z HGZRIXZHV WLDM":D=29
460 IFA=29ANDS6=1THENB$="Z HGZRIXZHV VCGVMWH GSILFTS GSV ILLU LU GSRH ILLN":U=25
470 IFA=12ANDS3=1THENB$="GSVIV RH Z HVXIVG KZHHZTV OVZWRMT HLFGS":S=7
480 IFA=40ANDS4=0THENB$="Z MLIGS WLLI RH OLXPVW"
490 IFA=40ANDS4=1THENB$="GSV MLIGS WLLI RH WVHGILBVW":N=50
500 A$=A$+".":FORT=1TO21:IFA=I(T)THENC$=C$+I$(T)+", "
510 NEXTT:IFC$<>""THENC$=LEFT$(C$,LEN(C$)-2)
520 IFC$=""THENC$="MLGSRMT"
530 IFN<>0THEND$=D$+"MLIGS"
540 IFS<>0THEND$=D$+" HLFGS"
550 IFE<>0THEND$=D$+" VZHG"
560 IFW<>0THEND$=D$+" DVHG"
570 IFD<>0THEND$=D$+" WLDM"
580 IFU<>0THEND$=D$+" FK"
590 IFB$<>""THENB$=B$+"."
600 IFLEFT$(D$,1)=" "THEND$=RIGHT$(D$,LEN(D$)-1)
610 CLS:PRINT"YOU ARE IN:":P$=A$:GOSUB5:P$=B$:GOSUB5:PRINT
611 PRINT"ITEMS YOU CAN SEE:":P$=C$:GOSUB5:PRINT:PRINT"EXITS:":P$=D$:GOSUB5
620 IFM<>0THENP$="*"+M$(M)+" ZGGZXPRMT*":GOSUB5
630 PRINT:INPUT"COMMAND";V0$:GOSUB6
640 FORT=1TO7:IFV$=LEFT$(V$(T),1)THENV$=V$(T)
650 NEXTT
660 IFV$="FK"THENV$="FK "
670 IFLEN(V$)<3THEN610
680 V1$=LEFT$(V$,3):V2$=RIGHT$(V$,3):IFV2$="VHG"THENV2$="LWH"
690 FORT=1TO23:IFV1$=LEFT$(V$(T),3)THENV1=T
700 NEXT:IFV1=0THENP$="R WLM'G FMWVIHGZMW BLF":GOSUB5:GOTO1830
710 FORT=1TO21:IFV2$=RIGHT$(I$(T),3)THENV2=T
720 NEXTT
730 ONV1GOTO750,780,820,890,920,940,980,1030,1050,1090,1190,1300,1830,1410,1520,1560,1600,1660,1690,1720,1760,1800,1820
740 GOTO1830
750 IFN=0THEN970
760 IFA=7ANDM(1)>0THEN960
770 A=N:PRINT"OK":GOTO1830
780 IFS=0THEN970
790 A=S:IFA=7ANDM(1)>0THENM=1
800 PRINT"OK"
810 GOTO1830
820 IFW=0THEN970
830 IFM<>0THEN960
840 A=W:PRINT"OK":IFA=19ANDM(3)>0THENM=3
850 IFA=20ANDM(2)>0THENM=2
860 IFA=27ANDM(4)>0THENM=4
870 IFA=32ANDM(5)>0THENM=5
880 GOTO1830
890 IFE=0THEN970
900 IFM<>0THEN960
910 A=E:PRINT"OK":GOTO1830
920 IFU=0THEN970
930 A=U:GOTO1830
940 IFD=0THEN970
950 A=D:GOTO1830
960 P$="GSV "+M$(M)+" YOLXPH GSV VCRG":GOSUB5:GOTO1830
970 P$="GSVIV RH ML DZB GL TL RM GSZG WRIVXGRLM":GOSUB5:GOTO1830
980 IFV2=2ANDA=2THENP$="GSV YLC RH UZHGVMVW GL GSV UOLLI":GOSUB5:GOTO1830
990 IFV2=0OR(I(V2)<>AANDI(V2)<>0)THENP$="R WLM'G HVV RG SVIV":GOSUB5:GOTO1830
1000 IFI(V2)=0THENP$="BLF ZIV ZOIVZWB XZIIBRMT RG":GOSUB5:GOTO1830
1010 IFP3=10THENP$="BLF XZM'G XZIIB ZMBGSRMT NLIV":GOSUB5:GOTO1830
1020 I(V2)=0:P3=P3+1:PRINT"OK":GOTO1830
1030 IFV2=0ORI(V2)<>0THENP$="R WLM'G SZEV RG":GOSUB5:GOTO1830
1040 P3=P3-1:I(V2)=A:GOTO1830
1050 CLS:PRINT"PLAYER'S INVENTORY"
1060 FORT=1TO21:IFI(T)=0THENP$=I$(T):GOSUB5
1070 NEXT
1080 GOTO1920
1090 IFM=0THENP$="GSVIV ZIVM'G ZMB NLMHGVIH SVIV":GOSUB5:GOTO1830
1100 IFA=20ANDP4=0THENP$="BLF XZM'G ZGGZXP RM GSV WZIP":GOSUB5:GOTO1830
1110 INPUT"WITH WHICH WEAPON";V2$:IFLEN(V2$)<3THEN1110
1112 V0$=V2$:GOSUB6:V2$=V$
1120 V2=0:V2$=RIGHT$(V2$,3):FORT=1TO21:IFV2$=RIGHT$(I$(T),3)THENV2=T
1130 NEXT:IFV2=0ORI(V2)<>0THENP$="BLF WLM'G SZEV GSZG DVZKLM":GOSUB5:GOTO1830
1134 IFV2<>6ANDV2<>14THENP$="GSZG RHM'G Z DVZKLM":GOSUB5:GOTO1830
1140 IFV2=14ANDM=4THENP$="GSV UOZNRMT HDLIW PROOVW GSV HORNV XIVZGFIV":GOSUB5:P2=P2+15:M=0:M(4)=0:GOTO1830
1150 IFRND(100)<(40-P5)THENP$="BLF NRHHVW GSV "+M$(M):GOSUB5:GOTO1830
1160 P$="BLF SRG GSV "+M$(M):GOSUB5:M(M)=M(M)-5:IFM(M)<=0THENP$="RG RH WVZW":GOSUB5:M(M)=0:P2=P2+15:IFM=5THENP2=P2+35
1170 IFM(M)=0THENM=0
1180 GOTO1830
1190 T=V2:IFT=0ORI(T)<>0THENP$="R WLM'G SZEV GSZG":GOSUB5:GOTO1830
1200 IFT<>1ANDT<>12ANDT<>16THENP$="EVIB HGIZMTV. MLGSRMT SZKKVMH":GOSUB5:GOTO1830
1210 IFT=1THENP$="MLGSRMT SZKKVMH":GOSUB5:GOTO1830
1220 IFT=12ANDM=5ANDS6<4THENP$="GSV YOZXP WIZTLM IVUOVXGH GSV ORTSGMRMT YLOG RMGL GSV DZOO":GOSUB5:GOTO1830
1230 IFT=12ANDP6>2THENP$="MLGSRMT SZKKVMH":GOSUB5:GOTO1830
1240 IFT=12ANDM=0THENP$="Z YLOG LU ORTSGMRMT RH IVOVZHVW YB GSV DZMW":GOSUB5:P6=P6+1:GOTO1830
1250 IFT=12THEN1255
1251 GOTO1260
1255 P6=P6+1:P$="Z YLOG LU ORTSGMRMT SRGH GSV "+M$(M):GOSUB5
1256 M(M)=M(M)-15:IFM(M)<=0THENM(M)=0:P2=P2+15:M=0:P$="RG RH WVZW":GOSUB5
1260 IFT=12THEN1830
1270 IFT=16ANDA=9ANDS2=0THENS2=1:P$="Z HVXIVG HGZRIXZHV WLDM ZKKVZIH":GOSUB5:GOTO1830
1280 IFT=16ANDA=12ANDS3=0THENS3=1:P$="Z HVXIVG ILLN GL GSV HLFGS ZKKVZIH":GOSUB5:GOTO1830
1290 P$="MLGSRMT SZKKVMH":GOSUB5:GOTO1830
1300 IFV2=2ANDI(1)=0ANDS1=0THENS1=1:P$="GSV NVGZO YZI SVOKVW. GSVIV RH Z PVB RMHRWV":GOSUB5:I(3)=2:GOTO1830
1310 IFV2=2ANDI(1)=0ANDS1=1THENP$="GSV YLC RH ZOIVZWB LKVM":GOSUB5:GOTO1830
1320 IFV2$="LLI"ANDA=9ANDS2=1THENP$="GSV WLLI RH ZOIVZWB LKVM":GOSUB5:GOTO1830
1330 IFV2$="LLI"ANDA=9ANDS2=0THENP$="GSV WLLI WLDM HVVNH GL YV OLXPVW NZTRXZOOB":GOSUB5:GOTO1830
1340 IFV2=21AND(A=I(21)ORI(21)=0)THENP$="ZOO GSZG BLF XZM HVV RH Z EVIB YIRTSG ORTSG RMHRWV GSV XSVHG":GOSUB5:GOTO1830
1350 IFV2=2ANDS1=0THENP$="BLF ZIVM'G HGILMT VMLFTS GL LKVM RG":GOSUB5:GOTO1830
1360 IFV2$="LLI"ANDA=1ANDI(3)<>0THENP$="BLF WLM'G SZEV GSV PVB":GOSUB5:GOTO1830
1370 IFV2$="LLI"ANDA=1ANDI(3)=0ANDS0=1THENP$="GSV WLLI RH ZOIVZWB LKVM":GOSUB5:GOTO1830
1380 IFV2$="LLI"ANDA=1ANDI(3)=0ANDS0=0THENS0=1:P$="GSV WLLI RH MLD LKVM":GOSUB5:GOTO1830
1390 IFV2$="LLI"ANDA=40ANDI(3)=0THENP$="GSV PVB WLVHM'G URG":GOSUB5:GOTO1830
1400 P$="R XZM'G WL GSZG":GOSUB5:GOTO1830
1410 IFV2=0ORI(V2)<>0THENP$="BLF WLM'G SZEV GSZG":GOSUB5:GOTO1830
1420 IFV2=17ANDA=12ANDS3=0THENS3=1:P$="Z GIVZHFIV EZFOG RH VCKLHVW":GOSUB5:P3=P3-1:I$(17)="":I(17)=-A:GOTO1830
1430 IFV2=17ANDA=9ANDS2=0THENS2=1:P$="Z HGZRIXZHV WLDM RH VCKLHVW":GOSUB5:P3=P3-1:I$(17)="":I(17)=-A:GOTO1830
1440 IFV2=17ANDA=40ANDS4=0THENS4=1:P$="GSV MLIGS WLLI RH WVHGILBVW":GOSUB5:P3=P3-1:I$(17)="":I(17)=-A:GOTO1830
1450 IFV2=17ANDM<>0THEN1455
1451 GOTO1460
1455 P$="GSV VCKOLHREV YZOO SRGH GSV "+M$(M):GOSUB5
1456 M(M)=M(M)-15:I$(17)="":I(17)=-A:P3=P3-1:IFM<=0THENM(M)=0:T=M:M=0:P2=P2+15:P$="RG RH WVZW":GOSUB5:GOTO1830
1460 IFV2=17ANDT=5THENP2=P2+35
1470 IFV2=17ANDM=0THENP$="GSV YZOO VCKOLWVW ZTZRMHG GSV HGLMV DZOO":GOSUB5:I$(17)="":I(17)=0:P3=P3-1
1480 IFV2=17THEN1830
1490 IFV2=20THENP$="GSV UOZHP HSZGGVIVW RMGL NROORLMH LU KRVXVH":GOSUB5:I(20)=-A:P3=P3-1:I$(20)="":GOTO1830
1500 IFV2=13ANDM=2THENI(13)=-A:M(2)=0:P$="GSV "+M$(M)+" SZH EZMRHSVW":GOSUB5:I$(13)="":I(13)=-A:M=0:P2=P2+15:P3=P3-1:GOTO1830
1510 GOTO1030
1520 IFV2$="GFV"ANDA=12ANDS3=0THENS3=1:P$="Z HVXIVG KZHHZTV GL GSV HLFGS ZKKVZIH":GOSUB5:GOTO1830
1530 IFV2$="GFV"ANDA=12ANDS3=1THENS3=0:P$="GSV HLFGS KZHHZTV XOLHVW":GOSUB5:GOTO1830
1540 IFV2$="GLM"ANDA=38THENA=1:P$="BLF ZIV GVOVKLIGVW GL ....":GOSUB5:GOTO1830
1550 P$="R WLM'G FMWVIHGZMW DSZG BLF DZMG NV GL WL":GOSUB5:GOTO1830
1560 IFV2=0ORI(V2)<>0THENP$="R WLM'G SZEV GSZG":GOSUB5:GOTO1830
1570 IFV2=4THENP5=P5-(3+RND(5)):P$="BLF HFWWVMOB UVVO NFXS DVZPVI":GOSUB5:I(4)=-A:I$(4)="":P3=P3-1:GOTO1830
1580 IFV2=9THENP5=P5+5+RND(5):P$="BLF HFWWVMOB UVVO NFXS HGILMTVI":GOSUB5:I(9)=-A:I$(9)="":P3=P3-1:GOTO1830
1590 P$="WLM'G YV IRWRXFOLFH":GOSUB5:GOTO1830
1600 IFV2=0ORI(V2)<>0THENP$="R WLM'G SZEV GSZG":GOSUB5:GOTO1830
1610 IFV2=4THENPRINT"OK.":I$(4)="":I(4)=-A:P3=P3-1:GOTO1830
1620 IFV2=9THENPRINT"OK.":I$(9)="":I(9)=-A:P3=P3-1:GOTO1830
1630 IFV2=20ANDS4=0ANDA=40ANDS5=0THENP$="GSV ZXRW WVHGILBVW GSV OLXPVW WLLI":GOSUB5:S4=1:I$(20)="VNKGB UOZHP":S5=1:GOTO1830
1640 IFV2=20ANDS5=0THENP$="GSV ZXRW YFYYOVH RMGL GSV UOLLI":GOSUB5:S5=1:I$(20)="VNKGB UOZHP":GOTO1830
1650 P$="R WLM'G FMWVIHGZMW DSZG BLF DZMG NV GL WL":GOSUB5:GOTO1830
1660 IFV2=0ORI(V2)<>0THENP$="R WLM'G SZEV GSZG":GOSUB5:GOTO1830
1670 IFV2=11THENI(V2)=-A:I$(V2)="":P3=P3-1:S6=1:P$="Z HGZRIXZHV WLDM RH VCKLHVW":GOSUB5:GOTO1830
1680 P$="R XZM'G WL GSZG":GOSUB5:GOTO1830
1690 IFV2<>10THENP$="R XZM'G WL GSZG":GOSUB5:GOTO1830
1700 IFM=1THENM(M)=0:P$="GSV "+M$(M)+" RH XSZINVW":GOSUB5:M=0:P2=P2+15:GOTO1830
1710 PRINT"OK":GOTO1830
1720 IFV2<>18THENP$="R XZM'G IVZW GSZG":GOSUB5:GOTO1830
1730 IFI(18)<>0THENP$="BLF WLM'G SZEV GSV HXILOO":GOSUB5:GOTO1830
1740 IFM=3THENP$="GSV "+M$(M)+" RH WVHGILBVW":GOSUB5:P3=P3-1:I(18)=-A:I$(18)="":M(M)=0:P2=P2+15:M=0:GOTO1830
1750 P$="GSV HXILOO HZBH: IVZWRMT GSV NZTRX HKVOO RMHXIRYVW LM GSRH SLOB WLXFNVMG DROO IVHFOG RM GSV":GOSUB5
1751 P$="WVHGIFXGRLM LU ZMB IVW WIZTLM RM    BLFI KIVHVMXV.":GOSUB5:GOTO1920
1760 IFV2<>5THENPRINT"WHAT?":GOTO1830
1770 IFI(5)<>0THENP$="BLF WLM'G SZEV RG":GOSUB5:GOTO1830
1780 IFP4=1THENP$="BLFI OZNK RH ZOIVZWB LM":GOSUB5:GOTO1830
1790 P4=1:I$(5)="ORG "+I$(5):GOTO1830
1800 CLS:PRINT"PLAYER'S STATUS:"
1810 PRINT"CURRENT HIT POINTS:"P1:PRINT"STRENGTH LEVEL:"P5:PRINT"EXP. POINTS:"P2:GOTO1920
1820 CLS:PRINT"GAME OVER":P2=P2-30:GOTO2010
1830 TI=TI+1:IFP1<P0THENP7=P7+.2:IFP7=1THENP7=0:P1=P1+1
1840 IFM=0THEN1940
1850 IFI(19)=0THEN1940
1860 T=RND(100):IFT<20THEN1940
1870 P$="GSV "+M$(M)+" ZGGZXPH, ":GOSUB5
1880 T=RND(100):IFT<30THENP$="RG NRHHVH":GOSUB5:GOTO1940
1890 P$="RG SRGH BLF":GOSUB5:P1=P1-10:IFI(7)=0THENP1=P1+5
1900 IFP1<0THEN2130
1910 GOTO1940
1920 FORT=1TO1500:IFINKEY$=""THENNEXT
1930 GOTO1950
1940 FORT=1TO650:IFINKEY$=""THENNEXT
1950 FORT=0TO0
1960 N=0:S=0:E=0:W=0:U=0:D=0:A$="":B$="":C$="":D$="":V1=0:V2=0:V$="":V1$="":V2$=""
1970 ON1-(A>0)GOTO1980:ONAGOTO10,20,30,40,50,60,70,80,90,100,110,120,130,140,150,160
1971 ONA-16GOTO170,180,190,200,210,220,230,240,250,260,270,280,290,300,310,320,330,340,350,360,370,380,390,400
1980 P$="BLF SZEV VHXZKVW UILN GSV WFMTVLM LU GSV TLWH!":GOSUB5
1990 M$="TOTAL ESCAPE TIME ="+STR$(TI):GOSUB1
2000 IFI(21)<>0THENP$="BLF WRWM'G TVG GSV XSVHG, GSV IVYVOORLM DROO YV XIFHSVW!!!":GOSUB5:GOTO2135
2010 P2=P2+30:IFI(8)=0THENP2=P2+30
2020 IFI(15)=0THENP2=P2+30
2030 IFI(21)=0THENP2=P2+100
2040 M$="FINAL SCORE: "+STR$(P2)+" OUT OF A POSSIBLE 300":GOSUB1
2050 P$="IZMPRMT: ":GOSUB5
2060 IFP2=300THENP$="VCKVIG ZWEVMGFIVI":GOSUB5:GOTO 2135
2070 IFP2>280THENP$="XOZHH Z VCKOLIVI":GOSUB5:GOTO2135
2080 IFP2>250THENP$="XOZHH Y VCKOLIVI":GOSUB5:GOTO2135
2090 IFP2>200THENP"CLASS C EXPLORER":GOSUB5:GOTO2135
2100 IFP2>150THENP$="URIHG XOZHH HXLFG":GOSUB5:GOTO2135
2110 IFP2>100THENP"NOVICE SCOUT":GOSUB5:GOTO2135
2120 P$="YVTRMMVI":GOSUB5:GOTO2135
2130 P$="BLF ZIV WVZW!!!":GOSUB5
2135 INPUT"PLAY AGAIN? (Y/N)";IN$:IFLEFT$(IN$,1)="Y"THENRUN
2136 CLS:END
2140 CLS:C155=-155:C64=64:P=0:II=0:N1=1:P$="":DIMI$(21),I(22),M(5),M$(5),V$(23)
2150 GOSUB2240
2160 FORT=1TO21:READI$(T),I(T):NEXT
2170 FORT=1TO23:READV$(T):NEXT
2180 FORT=1TO5:READM$(T),M(T):NEXT
2190 FORT=1TO15:P0=P0+RND(2):NEXT
2200 P1=P0
2210 FORT=1TO5:P5=P5+RND(5):NEXT
2220 IFINKEY$=""THEN2220
2230 A=1:GOTO10
2240 CLS:PRINTTAB(5)"ESCAPE FROM THE DUNGEON"
2241 PRINTTAB(11)"OF THE GODS"
2250 PRINTTAB(15)"BY":PRINTTAB(12)"RAY SATO"
2260 PRINT
2270 PRINT"FOR YEARS, THE SMALL MEDIEVAL   TOWN OF ALVARD WAS RULED BY A"
2280 PRINT"KIND MAN, KING SAFUIS I.        WHEN HE DIED, HIS SON BECAME"
2290 PRINT"THE NEW RULER.  KING SAFUIS II  WAS A HARSH, CRUEL MAN WHO"
2300 PRINT"TURNED ALVARD INTO A CITY OF    TERROR AND DESTRUCTION."
2305 PRINT:PRINTTAB(3)"PRESS ANY KEY TO CONTINUE";
2306 IFINKEY$=""THEN2306
2310 CLS:PRINT"YOU AND SEVERAL OTHER CITIZENS  OF THE TOWN HAD FORMED A "
2320 PRINT"SMALL ARMY TO REBEL AGAINST THE EVIL RULER, BUT ON THE DAY BE-"
2330 PRINT"FORE YOUR FIRST ATTACK ON THE   KING, HIS SECRET POLICE CAPTURED";
2340 PRINT"YOU AND IMPRISONED YOU IN THE   LEGENDARY DUNGEON OF THE GODS"
2360 PRINT:PRINTTAB(3)"PRESS ANY KEY TO CONTINUE";
2370 IFINKEY$=""THEN2370
2380 CLS
2390 PRINT"YOU ARE NOW BEING HELD IN A     DISMAL PRISON CELL WHILE THE"
2400 PRINT"KING'S FORCES CONTINUE TO WRECK THE ENTIRE VILLAGE. YOU MUST"
2410 PRINT"ESCAPE FROM THE DUNGEON TO HELP THE REBELLION DEFEAT THE KING."
2420 PRINT"HERE IN THE DUNGEON, A LEGEND   SAYS THERE IS A SPECIAL CHEST"
2430 PRINT"CALLED THE CHEST OF THE GODS,   WHICH HAS THE POWER TO DESTROY"
2440 PRINT"THE KING AND ALL HIS FORCES."
2441 PRINT:PRINTTAB(3)"PRESS ANY KEY TO CONTINUE";
2442 IFINKEY$=""THEN2442
2445 CLS:PRINT"YOU MUST FIND THE CHEST AND SEV-";
2450 PRINT"ERAL OTHER TREASURES HIDDEN IN  THE DUNGEON.  BUT BEWARE!!"
2460 PRINT"POWERFUL MONSTERS PROTECT THE   CONTENTS OF THE DUNGEON"
2470 PRINT"AND YOU WILL BE FORCED TO SLAY  THEM IF YOU MEET THEM."
2480 PRINT:PRINTTAB(4)"PRESS ANY KEY TO BEGIN";:RETURN
2490 DATANVGZO YZI,2,NVGZO YLC,-2,YIZHH PVB,-2,KLGRLM1,4,YIZHH OZNK,5,OZMXV,6,HSRVOW,6,YZI LU KOZGRMFN,7,KLGRLM2,8
2491 DATAUOFGV,10,XLKKVI XLRM,11,DZMW1,13,NZTRX WFHG,14,UOZNRMT HDLIW,16,1 WLAVM WRZNLMWH,19,DZMW2,21,VCKOLHREV YZOO,23
2492 DATAHXILOO,26,IRMT,27
2500 DATAUOZHP LU ZXRW,28,XSVHG LU GSV TLWH,33
2510 DATAMLIGS,HLFGS,DVHG,VZHG,FK ,WLDM,TVG,WILK,RMEVMGLIB,ZGGZXP,DZEV,LKVM,OLLP,GSILD,KFHS,WIRMP,KLFI,RMHVIG,KOZB,IVZW
2511 DATAORTSG,HGZGFH,JFRG
2520 DATAXSILNZGRX HMZPV,15,YOZXP XFYV,20,IVW WIZTLM,25,HORNV XIVZGFIV,20,TRZMG YOZXP WIZTLM,35
